home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / tutor / advtutr.exe / COMM.SCR < prev    next >
Text File  |  1987-08-28  |  951b  |  25 lines
  1. An example for a Commodore Screen:
  2.  
  3.  
  4. 1000 CU=0:PRINT chr$(19);:HL$=ROOM$:GOSUB 10000
  5. 1010 HL$="VISABLE OBJECTS: ":Z=0:GOSUB 10000
  6. 1020 FOR X=1 TO OBJECTS:IF L(X)<>L THEN 1060
  7. 1030 IF Z<>0 THEN PRINT", ";:HL$=HL$+", "
  8. 1040 IF LEN HL$+LEN(OBJECT$(X))+3>39 THEN GOSUB 10000
  9. 1050 HL$=HL$+OBJECT$(X)
  10. 1060 NEXT:IF Z=0 THEN HL$="Nothing":GOSUB 10000
  11. 1065 IF HL$<>"" THEN GOSUB 10000
  12. 1070 HL$="OBVIOUS EXITS:":GOSUB 10000:FOR X=1 TO 6:IF D(L,X)=0 THEN 1090
  13. 1080 IF D(L,1)<>0 THEN HL$=HL$+"NORTH "
  14. 1081 IF D(L,2)<>0 THEN HL$=HL$+"EAST "
  15. 1082 IF D(L,3)<>0 THEN HL$=HL$+"SOUTH "
  16. 1083 IF D(L,4)<>0 THEN HL$=HL$+"WEST "
  17. 1084 IF D(L,5)<>0 THEN HL$=HL$+"UP "
  18. 1085 IF D(L,6)<>0 THEN HL$=HL$+"DOWN"
  19. 1090 NEXT:GOSUB 10000:PRINT "-----------------------------------------":CU=CU+1
  20. 1095 CU=24-CU:FOR X=1 TO CU:PRINT CHR$(17);:NEXT
  21. 1100 INPUT"WHAT WOULD YOU LIKE TO DO";AN$
  22.  
  23. 10000 IF LEN(HL$)>39 THEN CU=CU+1
  24. 10010 PRINT HL$:HL$="":CU=CU+1:RETURN
  25.